      COMMON /CSYM1/ BUF(600), IBUF(600), LENGTH, INDMAX
